home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / fly.dxr / page2_1_init page 2.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  1.2 KB  |  20 lines
  1. global gSoundManager, gModule1, gButtonManager, gPopUp1, gPopUp2
  2.  
  3. on exitFrame
  4.   set buttonAction to "mShowPopUp(gPopUp," & QUOTE & "liftPopUp" & QUOTE & ")"
  5.   set aButton to mAddButton(gButtonManager, 6, "liftForceButton", "clickLiftForce")
  6.   mAddPageObject(gModule1, aButton)
  7.   set aButton to mAddButton(gButtonManager, 7, "thrustForceButton", "clickThrustForce")
  8.   mAddPageObject(gModule1, aButton)
  9.   set aButton to mAddButton(gButtonManager, 8, "weightForceButton", "clickWeightForce")
  10.   mAddPageObject(gModule1, aButton)
  11.   set aButton to mAddButton(gButtonManager, 9, "dragForceButton", "clickDragForce")
  12.   mAddPageObject(gModule1, aButton)
  13.   mAddPageObject(gModule1, new(script "rolloverAnimObjectScript", 6, "liftArrow Loop", 11, point(378, 74)))
  14.   mAddPageObject(gModule1, new(script "rolloverAnimObjectScript", 7, "thrustArrow Loop", 12, point(596, 62)))
  15.   mAddPageObject(gModule1, new(script "rolloverAnimObjectScript", 8, "weightArrow Loop", 13, point(379, 222)))
  16.   mAddPageObject(gModule1, new(script "rolloverAnimObjectScript", 9, "dragArrow Loop", 14, point(143, 225)))
  17.   set gPopUp1 to new(script "popUpMovieObjectScript", "drag.mov", "noFrame")
  18.   set gPopUp2 to new(script "popUpObjectScript")
  19. end
  20.